home *** CD-ROM | disk | FTP | other *** search
/ Best of Shareware / Best of PC Windows Shareware 1.0 - Wayzata Technology (7111) (1993).iso / pc / dos / programg / zi_123 / demo.zsl < prev    next >
Text File  |  1992-08-19  |  10KB  |  464 lines
  1. ;
  2. ; Sample Script for Z/Install Ver 1.0 - (c) 1992 SpeedSoft
  3. ;
  4. ; This is the actual script used to install Z/Install.
  5. ;
  6. ; Release version: 1.0
  7. ;         date   : 07/01/92
  8. ;
  9.  
  10. [disks]
  11. ; Number:Label of disk:Disk description (spaces NOT allowed between fields)
  12. 1:INSTALL001:Z/Install installation disk
  13. [end]
  14.  
  15. [paths]
  16. ; Number:Path
  17. ; Note that path 0 is also accessible by the variable name 'RootDir'
  18. 0:\\ZINSTALL
  19. 1:\\SAMPLES
  20. 2:\\DOC
  21. 3:\\OPTDIST
  22. 4:\\ZPACK
  23. [end]
  24.  
  25. [FILES]
  26. ZPACK.ZPK:4:1:1:4
  27. MAIN.ZPK:0:1:1:1
  28. DOCS.ZPK:2:1:1:3
  29. OPTDIST.ZPK:3:1:1:2
  30. SAMPLES.ZPK:1:2:1:5
  31. [END]
  32.  
  33. ; *** Setting up Z/Install
  34.  
  35. SetDialogColor  BrightBrownOnBrightBlue
  36. SetDialogStyle  Single
  37. SetBackColor    WhiteOnBlue
  38. SetBackChar     176
  39. SetPrintColor   BrightWhiteOnBrightBlue
  40. SetInputColor   BrightWhiteOnBlack
  41. SetInputFill    250
  42. SetInputCaps    On
  43. SetInputTplate  "**************************************************"
  44. SetExitMessage  "Thanks for choosing Z/Install!"
  45. SetExplode      Dialog_Warn
  46. SetImplode      Dialog_Only
  47. SetExplodeSnd   Off                 ; No sound on explode
  48. SetExplodeType  2                   ; Fast explosions
  49. MarkFilesTime   0, 0, 0
  50. MarkFilesDate   8, 3, 92
  51.  
  52. SetDescLine         19
  53.  
  54. SetBarNormalColor   WhiteOnBrightBlue
  55. SetBarHighColor     BlueOnBrightWhite
  56. SetBarCharColor     BrightRedOnBrightBlue
  57.  
  58. HiBack
  59. Gosub   ClearScr
  60.  
  61. ; *** End Setting Up Z/Install
  62.  
  63. Dialog 0, 0 @(0,5)
  64.  
  65.     @CWelcome to Z/Install v1.0!  This installation program will guide
  66.     @Cyou through the simple steps required to copy Z/Install to your
  67.     @Csystem.  After the installation is complete, you will have the
  68.     @Coption of seeing a demonstration of the capabilities of Z/Install.
  69.  
  70. EndDialog
  71.  
  72. CheckInstallOK
  73.  
  74. Int     Menuchoice = 1
  75. Str     Over       = "Overwrite"
  76. Overwriteall = 1
  77. InstDrv = "C"
  78.  
  79. GoSub   ClearScr
  80.  
  81. Label   MenuLoop
  82.  
  83. BarMenu Menuchoice, 50, Menuchoice, 0
  84.     ~Choose Destination Disk    [%InstDrv%:]
  85.     : Choose the disk to install on.
  86.     Choose ~Destination Dir     [%RootDir%]
  87.     : Choose the directory to install to.
  88.     Toggle ~Overwrite Mode      [%over%]
  89.     : Toggle Overwrite Mode
  90.     ~Begin Installation
  91.     : Begin the installation
  92. EndBarMenu
  93.  
  94. if      Menuchoice = 1
  95.     Gosub   ChooseDisk
  96. Elif    Menuchoice = 2
  97.     Gosub   ChooseDir
  98. Elif    Menuchoice = 3
  99.     Gosub   ToggleOver
  100. Else
  101.     Gosub   BeginInst
  102. Endif
  103.  
  104. Goto    MenuLoop                ; Loop back and redo the menu
  105.  
  106. ; *****************************************************************************
  107. ; Choose destination drive.
  108. ; *****************************************************************************
  109.  
  110. Label   ChooseDisk
  111.  
  112. Gosub   ClearScr
  113.  
  114. Dialog 0, 1 @(0,3)
  115.  
  116.     @CPlease choose the fixed disk that you would like to
  117.     @Cinstall the program on.
  118.  
  119. EndDialog
  120.  
  121. GetInstallationDrive @(0,11)
  122.  
  123. GoSub   ClearScr
  124.  
  125. Return
  126.  
  127. ; *****************************************************************************
  128. ; Choose destination dir.
  129. ; *****************************************************************************
  130.  
  131. Label   ChooseDir
  132.  
  133. Dialog 0, 1 @(0,6)
  134.  
  135.     @CEnter the path on drive %Instdrv%: in which to install the program:
  136.  
  137.     @ERootdir
  138.  
  139. EndDialog
  140.  
  141. Return
  142.  
  143. ; *****************************************************************************
  144. ; Toggle Overwrite
  145. ; *****************************************************************************
  146.  
  147. Label   ToggleOver
  148.  
  149. If      Overwriteall = 1
  150.         Overwriteall = 0
  151.         Over = "Don't Overwrite"
  152. Else
  153.         Overwriteall = 1
  154.         Over = "Overwrite"
  155. Endif
  156.  
  157. Return
  158.  
  159. ; ****************************************************************************
  160. ; Clear screen
  161. ; ****************************************************************************
  162.  
  163. Label   ClearScr
  164.  
  165. ClrScr
  166. WriteScreen BlackOnWhite, 0, 1, " Z/Install installation program "
  167. WriteScreen BlackOnWhite, 0, 25, " Press <ESC> to exit anytime "
  168.  
  169. Return
  170.  
  171. ; ****************************************************************************
  172. ; Begin installation
  173. ; ****************************************************************************
  174.  
  175. Label   BeginInst
  176.  
  177. Dialog 0, 0 @(0,6)
  178.  
  179.     " Install will now copy the files to your hard disk"
  180.     " using the following parameters:"
  181.  
  182.     "   Path  - %Rootdir%"
  183.     "   Drive - %Instdrv%:"
  184.  
  185.     " Press <ESC> to abort Install, or any other key to continue."
  186.  
  187. EndDialog
  188.  
  189. BeginInstall
  190.  
  191. Gosub   ClearScr
  192.  
  193. int choice
  194. str yn
  195.  
  196. Dialog 0, 1 @(0,3)
  197.  
  198.     @CZ/Install is finished installing on your system!
  199.  
  200.     " In order for Z/Install to run correctly, the following"
  201.     " lines must be in your CONFIG.SYS:"
  202.  
  203.     "  FILES   = 20"
  204.     "  BUFFERS = 10 (Increases performance of the compiler,"
  205.     "                but is not necessary)"
  206.  
  207.     " And, optionally, your AUTOEXEC.BAT can have its PATH"
  208.     " statement pointing to %instdrv%:%rootdir%."
  209.  
  210.     " Press 'Y' if you would like INSTALL to modify your boot"
  211.     " files for you, or 'N'  if you would  like to edit  them"
  212.     " yourself."
  213.  
  214.     @CEnter your choice:
  215.  
  216. EndDialog
  217.  
  218. yn = getchoice "YN"
  219.  
  220. If yn = "Y"
  221.     SetFiles 50
  222.     SetBuffers 10
  223.     ModPath Instdrv, ":", Rootdir
  224. Else
  225.     InterLoad Instdrv, ":\\CONFIG.SYS"
  226.     InterPut  "BUFFERS=10"
  227.     InterPut  "FILES=50"
  228.     InterEdit
  229.     InterLoad Instdrv, ":\\AUTOEXEC.BAT"
  230.     InterPut  "PATH %PATH%;", Instdrv, ":", Rootdir
  231.     InterEdit
  232. Endif
  233.  
  234. GoSub   ClearScr
  235.  
  236. Dialog 0, 1 @(0,7)
  237.  
  238.     @CYou now have the option of taking a guided tour through
  239.     @Cthe features of Z/Install.
  240.  
  241. EndDialog
  242.  
  243. BarMenu choice, 40, 1, 1 @(0,15)
  244.     ~Yes! I want to go on a guided tour!
  245.     ~No. Let me go now and I'll do it later.
  246. EndBarMenu
  247.  
  248. if choice = 2
  249.     GoSub Exit
  250. endif
  251.  
  252. SetDialogColor  BrightWhiteOnCyan
  253. SetDialogStyle  Double
  254. SetBackColor    BlackOnBlue
  255. SetBackChar     32
  256. SetPrintColor   BrightBlackOnCyan
  257. SetInputColor   BrightWhiteOnBlack
  258. SetInputFill    250
  259. SetInputCaps    Off
  260. SetInputTplate  "**************************************************"
  261.  
  262. Gosub   ClearScr
  263.  
  264. Dialog 0, 0
  265.  
  266.     @CWelcome to the Z/Install guided tour!  Over the next few minutes,
  267.     @Cyou'll be introduced to some of the features of Z/Install.  If you
  268.     @Cwish to exit the tour at any time, simply press the <ESC> key.
  269.  
  270. EndDialog
  271.  
  272. str v_ega
  273.  
  274. if VgaEga = 2
  275.     v_ega = "VGA"
  276. elif VgaEga = 1
  277.     v_ega = "EGA"
  278. else
  279.     v_ega = "Probably CGA"
  280. endif
  281.  
  282. str joystr = "Yes"
  283.  
  284. if Joystick = 0
  285.     joystr = "No"
  286. endif
  287.  
  288. str mcpu = "Yes"
  289.  
  290. if MathCPU = 0
  291.     mcpu = "No"
  292. endif
  293.  
  294. str ansistr = "Yes"
  295.  
  296. if  ANSISYS = 0
  297.     ansistr = "No"
  298. endif
  299.  
  300. int net = NetworkType
  301. str netstr = "No network"
  302.  
  303. if net = 1
  304.     netstr = "Novell"
  305. elif net = 2
  306.     netstr = "NetBIOS Network"
  307. endif
  308.  
  309. Dialog 0, 0 @(0,3)
  310.  
  311.     @CFirst, we'll explore some of Z/Install's auto-detection features.
  312.        Here is your system configuration:
  313.  
  314.        Processor type : %ProcessorType%
  315.        XMS Memory     : %XMSMemory% kbytes
  316.        EMS Memory     : %EMSMemory% kbytes
  317.        Conv. Memory   : %ConvMemory% kbytes
  318.        Extended Memory: %ExtendedMemory% kbytes
  319.        VGA/EGA        : %v_ega%
  320.        Joystick?      : %joystr%
  321.        Math CoPro?    : %mcpu%
  322.        File handles   : %FileHandles%
  323.        Buffers        : %Buffers%
  324.        DOS Version    : %OSMajor%.%OSMinor%
  325.        ANSI.SYS?      : %ansistr%
  326.        Network        : %netstr%
  327.  
  328. EndDialog
  329.  
  330. SetBackChar     177
  331.  
  332. Gosub   ClearScr
  333.  
  334. SetExplodeSnd   On
  335.  
  336. Dialog  50, 0
  337.  
  338.  
  339.  
  340.     @CExploding windows with ))) sound (((
  341.  
  342.  
  343.  
  344. EndDialog
  345.  
  346. SetExplodeSnd   Off
  347.  
  348. SetDialogColor  BrightWhiteOnBlue
  349. SetPrintColor   BrightWhiteOnBlue
  350.  
  351. Gosub   ClearScr
  352.  
  353. Dialog 30, 1 @(2,3)
  354.  
  355.     @CYou can have...
  356.  
  357. EndDialog
  358.  
  359. SetDialogColor  BrightWhiteOnRed
  360. SetPrintColor   BrightWhiteOnRed
  361.  
  362. Dialog 30, 1 @(20,8)
  363.  
  364.     @CMultiple Windows...
  365.  
  366. EndDialog
  367.  
  368. SetDialogColor  BlackOnBrightCyan
  369. SetPrintColor   BlackOnBrightCyan
  370.  
  371. Dialog 30, 1 @(40,13)
  372.  
  373.     @COn the screen...
  374.  
  375. EndDialog
  376.  
  377. SetDialogColor  BrightBlueOnWhite
  378. SetPrintColor   BrightBlueOnWhite
  379.  
  380. Dialog 30, 0 @(25,18)
  381.  
  382.     @CAt the same time!
  383.  
  384. EndDialog
  385.  
  386. Gosub   ClearScr
  387.  
  388. SetExplode      None
  389. int x = 2
  390. int y = 3
  391.  
  392. label loop
  393.  
  394. dialog 20, 1 @(x,y)
  395.  
  396.     @CDialog!
  397.  
  398. enddialog
  399.  
  400. x+=2
  401. y++
  402.  
  403. if  y > 16
  404.     goto continue
  405. endif
  406.  
  407. goto loop
  408.  
  409. label continue
  410.  
  411. SetDialogColor  BrightWhiteOnBlue
  412. SetPrintColor   BrightWhiteOnBlue
  413. SetExplode      Dialog_Warn
  414.  
  415. Dialog 30, 0
  416.  
  417.     @CFassssst....
  418.  
  419. EndDialog
  420.  
  421. Gosub   ClearScr
  422.  
  423. SetDialogColor  BrightWhiteOnBlue
  424. SetPrintColor   BrightBrownOnBlue
  425.           
  426. Dialog 0, 0
  427.  
  428.     @CZ/Install offers Security!
  429.  
  430.     @CIf you wish, Z/Install will check to make sure that your application
  431.     @Cis being installed from a hard disk.  Even SUBSTed and ASSIGNed disks
  432.     @Cdon't fool Z/Install!  This is a great feature for making the piracy
  433.     @Cof your application all the more awkward.  The distribution disk
  434.     @Cbuilder will even 'brand' your floppies so that they can't be copied
  435.     @Cor archived for modem transfer (much of today's piracy is
  436.     @Cdone through Bulletin Board Systems).
  437.  
  438. EndDialog
  439.  
  440. Dialog 0, 0
  441.  
  442.     @CZ/Install is Eye-Catching!
  443.  
  444.     @CExploding windows with sound, snazzy colors, speed and grace:
  445.     @CZ/Install has it all!
  446.  
  447. EndDialog
  448.  
  449. Dialog 0, 0
  450.  
  451.     @CNow that you've gotten a feel for some of Z/Install's features,
  452.     @Ctake the time to browse through Chapter 1 in the user's manual.
  453.  
  454.     @CWe hope you find using Z/Install fun and productive.
  455.     @CDon't hesitate to call with any questions or promblems that you
  456.     @Cmay encounter!
  457.  
  458. EndDialog
  459.  
  460. Label Exit
  461.  
  462. SetDisk InstDrv
  463. ChDir   RootDir
  464.